home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
DATABASE
/
FOXRYAN.ZIP
/
VERIFY.PRG
< prev
next >
Wrap
Text File
|
1993-07-05
|
2KB
|
66 lines
for m.i = 1 to 22
m.form = "form" + alltrim(str(m.i))
m.dbfile = m.form + ".dbf"
for m.j = 0 to 13
m.letter = iif(m.j = 0, "", chr(m.j-1+asc("A")))
m.scrfile = m.form + alltrim(m.letter) + ".scx"
?m.scrfile
select 0
if not file(m.scrfile)
exit
endif
use &scrfile alias screen
go top
locate for screen.objtype=15 or screen.objtype=2
do while not eof()
if inkey()=27
suspend
endif
delete file temp.tmp
copy memo screen.name to temp.tmp
m.fp = fopen("temp.tmp", 0)
m.str = fread(m.fp, 100)
=fclose (m.fp)
if "FORM" $ upper(m.str)
if substr(m.str, 7, 1) = "."
* form13.q12 form13.q1
* 123456789A 123456789
m.outstr = m.form + substr(m.str, 7, len(m.str)-6)
else
* form1.q12 form1.q1
* 123456789 12345678
m.outstr = m.form + substr(m.str, 6, len(m.str)-5)
endif
m.fp = fopen("temp.tmp", 1)
=fwrite(m.fp, iif(screen.objtype=2, upper(m.outstr), m.outstr))
=fclose(m.fp)
append memo screen.name from temp.tmp overwrite
endif
continue
delete file temp.tmp
copy memo screen.expr to temp.tmp
m.fp = fopen("temp.tmp", 0)
m.str = fread(m.fp, 100)
=fclose (m.fp)
if "FORM" $ upper(m.str)
if substr(m.str, 7, 1) = "."
* form13.q12 form13.q1
* 123456789A 123456789
m.outstr = m.form + substr(m.str, 7, len(m.str)-6)
else
* form1.q12 form1.q1
* 123456789 12345678
m.outstr = m.form + substr(m.str, 6, len(m.str)-5)
endif
m.fp = fopen("temp.tmp", 1)
=fwrite(m.fp, m.outstr)
=fclose(m.fp)
append memo screen.name from temp.tmp overwrite
endif
* locate for screen.objtype=13 or screen.objtype=15
continue
enddo
use
endfor
endfor